Notes/Domino 6 and 7 Forum : Deleting Orphans

Hello,

I have a database where completed documents are eventually sent to an archive database. When this happens, the documents' responses become orphans. So I wrote a "Delete Orphans" agent that looks like this:

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db=session.currentdatabase
Dim doc As NotesDocument
Dim parentdoc As NotesDocument
Dim dc As NotesDocumentCollection
Set dc = db.AllDocuments
For j = 1 To dc.Count
Set doc = dc.GetNthDocument(j)
If doc.IsResponse = True Then
Set parentdoc = db.GetDocumentByUNID(doc.ParentDocumentUNID)
On Error Resume Next
If (parentdoc.Responses Is Nothing) Then
Call doc.Remove(True)
End If
End If
Next j
End Sub

Since the parent document was deleted, I was hoping to satisfy the "Is Nothing" condition. Instead, the previous document's parent is still there. Or, if the first document is an orphan, I get an "Invalid universal ID" message.

This agent used to work and now it doesn't. The only thing I could possibly have changed is the "Soft Deletion" option.

Can someone tell me how to make this work?

Thanks